lisp/gnus/eww.el (eww-tag-form): Protect against degenerate forms

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f4d45e9fd0b95dea59aebca2de749e3a38b8505f..4003d3a51f85395ca662f2f87fe920a4ed54edcb 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,7 @@
 2013-06-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * eww.el (eww-tag-form): Protect against degenerate forms.
+
        * shr.el (shr-expand-url): Expand URLs that start with a slash
        correctly.
 

diff --git a/lisp/gnus/eww.el b/lisp/gnus/eww.el
index 1a072244fb4440953f2d6c06c3a16dacd0b79f69..9a7435fc54c108ab21b4bc31861d7a54070dd0e7 100644 (file)
--- a/lisp/gnus/eww.el
+++ b/lisp/gnus/eww.el
@@ -177,8 +177,9 @@
     (shr-ensure-paragraph)
     (shr-generic cont)
     (shr-ensure-paragraph)
-    (put-text-property start (1+ start)
-                      'eww-form eww-form)))
+    (when (> (point) start)
+      (put-text-property start (1+ start)
+                        'eww-form eww-form))))
 
 (defun eww-tag-input (cont)
   (let* ((start (point))